home *** CD-ROM | disk | FTP | other *** search
/ Apple Reference & Presen…tion Library 2 (Reseller) / Apple R&P Lib Reseller v2.0.iso / 4-Fonts & Software / Applications / ImageStudio / ImageStudio Settings / ImageStudio Settings.rsrc / PSCN_0_Halftone < prev    next >
Text File  |  1988-08-22  |  323b  |  8 lines
  1.   /diamond {add 1 sub} def
  2.   /phi {diamond abs .05 exp 1 exch sub 2 mul} def
  3.   /dsq {2 copy dup mul exch dup mul add
  4.         3 1 roll 2 copy mul 3 1 roll phi mul add} def
  5.   /disq {1 exch sub exch 1 exch sub dsq} def
  6.   %d %d {abs exch abs exch 2 copy diamond 0 le {dsq 1 sub}
  7.         {disq 1 exch sub} ifelse neg} setscreen
  8.